This should work with a button in the document

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim docMail, doc As NotesDocument
Dim rtitem As NotesRichTextItem

Set db = session.CurrentDatabase
Set docMail = db.CreateDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document

docMail.Form="Memo"
docMail.SendTo = "John Smith"
docMail.Subject = "Location System: A Support Request Has Been Logged"

Set rtitem = New NotesRichTextItem ( docMail, "Body" )
Call rtitem.Appendtext(doc.emailBody(0))

Call docMail.Send( False )
End Sub

Feedback response number WEBB8M3GWN created by ~George Pregerosterobu on 09/26/2011